﻿Public Class ven_concent_secc

    Private Sub cal_rela_grafff_Click(sender As Object, e As EventArgs) Handles cal_rela_grafff.Click
        dmayor_concentsecc = Convert.ToSingle(txt_dmayor_concentsecc.Text)
        r = Convert.ToSingle(r_concentsecc.Text)
        txt_rentred_concentsecc.Text = r / d
        txt_dmayorentred_concentsecc.Text = dmayor_concentsecc / d
    End Sub
    Private Sub btn_cal_concentsecc_ce_Click(sender As Object, e As EventArgs) Handles btn_cal_concentsecc_ce.Click


        alfakflex = Convert.ToSingle(fgceflex_concentsecc.Text)
        alfaktor = Convert.ToSingle(fgcetor_concentsecc.Text)
        nent = (1 + (8 / r) * ((1 - sf / su) ^ 3)) ^ (-1)
        betakflex = 1 + nent * (alfakflex - 1)
        betaktor = 1 + nent * (alfaktor - 1)

        Me.Close()

    End Sub

    
End Class